7 B(1) = .5:C(1) = .5:C(2) = .25:C(3) = .75:B(4) = 1:C(4) = .25:B(5) = 1:C(5) = .75:B(6) = .5:B(7) = .5:C(7) = 1: FOR E = 1 TO 7: READ M: HGR :W = .588:R = .15:Y = .5:X = Y: FOR A = 1 TO 7: FOR B = 1 TO 7: FOR C = 1 TO 3:U = 140 -M *W +M *X:V = 90 +M *W -M *Y: ON (U <0 OR U >279 OR V <0 OR V >191) GOTO 8: HCOLOR= 7: HPLOT U,V
8 A(1) = A:A(2) = B:A(3) = 1:Z = A(C):H = B(Z):K = C(Z):X = R *X +H:Y = R *Y +K: NEXT : NEXT : NEXT : PRINT CHR$(4)"BSAVE/RAM/P"M",A8192,L8192": NEXT : RESTORE : POKE 49234,0: DATA 129,167,217,282,366,475,617: FOR A = 1 TO 999: FOR T = 1 TO 7: READ M: PRINT CHR$(4)"BLOAD/RAM/P"M: NEXT : RESTORE : NEXT